home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr37 / list224.zip / LISTUTIL.WCX (.txt) < prev   
Wildcat! WCX  |  1995-03-13  |  13KB  |  807 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  13450 bytes  01/29/123  04:30:20pm
  3. '! Code Segment Size  :6991 bytes
  4. '! Data Segment Size  :5828 bytes
  5. '! String Segment Size:6459 bytes
  6. '! Compiled with WCC version 4.01
  7.  
  8.       Type Type28
  9.         Filler0(1 To 4) As Byte
  10.         w4 As Word
  11.       End Type
  12.  
  13.       Type Type27
  14.         Filler0(1 To 661) As Byte
  15.         w661 As Word
  16.       End Type
  17.  
  18.       Type Type26
  19.         s0 As String*70
  20.         s70 As String*8
  21.         i78 As Integer
  22.       End Type
  23.  
  24.       Dim b4463(1 To 70) As Byte
  25.       Dim i4533 As Integer
  26.       Dim s4535 As String*70
  27.       Dim t26_4605 As Type26
  28.       Dim t27_4685 As Type27
  29.       Dim s5421 As String
  30.       Dim s5425 As String
  31.       Dim i5429 As Integer
  32.       Dim i5431 As Integer
  33.       Dim i5433 As Integer
  34.       Dim i5435 As Integer
  35.       Dim mh5437 As MessageHeader
  36.       Dim s5757 As String*20
  37.       Dim s5777 As String*15
  38.       Dim s5792 As String*15
  39.       Dim s5807 As String*15
  40.       Dim w5822 As Word
  41.       Dim i5824 As Integer
  42.       Dim i5826 As Integer
  43.  
  44.       Dim l65518_ As Long
  45.       Dim i65522_ As Integer
  46.       Dim s65524_ As String
  47.       Dim i65528_ As Integer
  48.       Dim i65530_ As Integer
  49.       Dim s65532_ As String
  50.  
  51.       Cls 
  52.       Print "Listserv Sysop Utility v2.24 (03/13/95) - by Pete Nelson"
  53.       Print "Terminal One BBS (510) 689-9528"
  54.       Print "Author: pete@terminal-one.com"
  55.       Print
  56.       If Exists("listserv.key") Then
  57.         Open "listserv.key" For Random As 1 Len = 70 '! This value should probably be replaced with a "SizeOf" expression
  58.         Get 1, 1, b4463 '! 70 bytes
  59.         Print "@0E@Registered to@07@:@0A@ ";
  60.   148   For i4533 = 1 To 70 Step 1
  61.           Print Chr(b4463(i4533) - 120);
  62.         Next
  63.   262   Locate 7, 19
  64.         Print "@0F@|";
  65.         Delay 0.001
  66.         Locate 7, 19
  67.         Print "@0C@T@0F@\";
  68.         Delay 0.001
  69.         Locate 7, 20
  70.         Print "@0C@h@0F@-";
  71.         Delay 0.001
  72.         Locate 7, 21
  73.         Print "@0C@a@0F@/";
  74.         Delay 0.001
  75.         Locate 7, 22
  76.         Print "@0C@n@0F@|";
  77.         Delay 0.001
  78.         Locate 7, 23
  79.         Print "@0C@k@0F@\";
  80.         Delay 0.001
  81.         Locate 7, 24
  82.         Print "@0C@s@0F@-";
  83.         Delay 0.001
  84.         Locate 7, 25
  85.         Print "@0C@ @0F@/";
  86.         Delay 0.001
  87.         Locate 7, 26
  88.         Print "@0C@f@0F@|";
  89.         Delay 0.001
  90.         Locate 7, 27
  91.         Print "@0C@o@0F@\";
  92.         Delay 0.001
  93.         Locate 7, 28
  94.         Print "@0C@r@0F@-";
  95.         Delay 0.001
  96.         Locate 7, 29
  97.         Print "@0C@ @0F@/";
  98.         Delay 0.001
  99.         Locate 7, 30
  100.         Print "@0C@s@0F@|";
  101.         Delay 0.001
  102.         Locate 7, 31
  103.         Print "@0C@u@0F@\";
  104.         Delay 0.001
  105.         Locate 7, 32
  106.         Print "@0C@p@0F@-";
  107.         Delay 0.001
  108.         Locate 7, 33
  109.         Print "@0C@p@0F@/";
  110.         Delay 0.001
  111.         Locate 7, 34
  112.         Print "@0C@o@0F@|";
  113.         Delay 0.001
  114.         Locate 7, 35
  115.         Print "@0C@r@0F@\";
  116.         Delay 0.001
  117.         Locate 7, 36
  118.         Print "@0C@t@0F@-";
  119.         Delay 0.001
  120.         Locate 7, 37
  121.         Print "@0C@i@0F@/";
  122.         Delay 0.001
  123.         Locate 7, 38
  124.         Print "@0C@n@0F@|";
  125.         Delay 0.001
  126.         Locate 7, 39
  127.         Print "@0C@g@0F@\";
  128.         Delay 0.001
  129.         Locate 7, 40
  130.         Print "@0C@ @0F@-";
  131.         Delay 0.001
  132.         Locate 7, 41
  133.         Print "@0C@L@0F@/";
  134.         Delay 0.001
  135.         Locate 7, 42
  136.         Print "@0C@i@0F@|";
  137.         Delay 0.001
  138.         Locate 7, 43
  139.         Print "@0C@s@0F@\";
  140.         Delay 0.001
  141.         Locate 7, 44
  142.         Print "@0C@t@0F@-";
  143.         Delay 0.001
  144.         Locate 7, 45
  145.         Print "@0C@s@0F@/";
  146.         Delay 0.001
  147.         Locate 7, 46
  148.         Print "@0C@e@0F@|";
  149.         Delay 0.001
  150.         Locate 7, 47
  151.         Print "@0C@r@0F@\";
  152.         Delay 0.001
  153.         Locate 7, 48
  154.         Print "@0C@v@0F@-";
  155.         Delay 0.001
  156.         Locate 7, 49
  157.         Print "@0C@!@0F@ ";
  158.         Delay 0.001
  159.         Locate 7, 50
  160.         Print
  161.         Print
  162.         Close 1
  163.       End If
  164.  1046 WaitEnter 
  165.       w5822 = 200
  166.       Do
  167.         Do
  168.           Do
  169.             Do
  170.               Do
  171.                 Do
  172.                   Do
  173.                     Do
  174.                       Do
  175.                         Do
  176.                           Do
  177.                             Do
  178.                               Do
  179.                                 Do
  180.                                   Do
  181.                                     Do
  182.                                       Do
  183.                                         Do
  184.                                           Do
  185.                                             Do
  186.                                               Do
  187.                                                 Do
  188.                                                   Do
  189.                                                     Do
  190.  1056                                                 Reset 
  191.                                                       Cls 
  192.                                                       Print
  193.                                                       Print "  @0B@Listserv Sysop Utility v2.24 @0E@- @0F@Sysop Utilites Option"
  194.                                                       Print
  195.                                                       Print "  @09@[@0F@C@09@] @0E@- @0A@Create a new Mailing List"
  196.                                                       If Exists("listserv.dat") Then
  197.                                                         Print "  @09@[@0F@R@09@] @0E@- @0A@Remove a Mailing List"
  198.                                                         Print "  @09@[@0F@V@09@] @0E@- @0A@View your Mailing Lists"
  199.                                                         Print "  @09@[@0F@L@09@] @0E@- @0A@List/Search Subscribers for a Mailing List"
  200.                                                         Print "  @09@[@0F@D@09@] @0E@- @0A@Drop a Subscriber from a Mailing List"
  201.                                                         Print "  @09@[@0F@A@09@] @0E@- @0A@Add a Subscriber to a Mailing List"
  202.                                                         Print "  @09@[@0F@P@09@] @0E@- @0A@Change the high message pointer in LISTSERV.PTR"
  203.                                                         Print "  @09@[@0F@M@09@] @0E@- @0A@Moderate your lists - View/Delete unprocessed messages"
  204.                                                         Print "  @09@[@0F@B@09@] @0E@- @0A@Rebuild a Mailing List Data File"
  205.                                                       End If
  206.  1170                                                 Print "  @09@[@0F@Q@09@] @0E@- @0A@Quit"
  207.                                                       Print
  208.                                                       Print "  @0B@Choice@07@:@0F@ ";
  209.                                                       s5421 = ""
  210.                                                       Do
  211.  1199                                                   s5421 = UCase(InKey(1213417543))
  212.                                                       Loop Until s5421 > ""
  213.                                                       Print "@0D@"; s5421
  214.                                                       s65532_ = s5421
  215.                                                       If s65532_ = "C" Then
  216.                                                         GoTo 1550
  217.                                                         GoTo 1550
  218.                                                       End If
  219.  1283                                                 If s65532_ = "R" Then
  220.                                                         GoTo 2242
  221.                                                         GoTo 1550
  222.                                                       End If
  223.  1312                                                 If s65532_ = "V" Then
  224.                                                         GoTo 2575
  225.                                                         GoTo 1550
  226.                                                       End If
  227.  1341                                                 If s65532_ = "A" Then
  228.                                                         GoTo 2939
  229.                                                         GoTo 1550
  230.                                                       End If
  231.  1370                                                 If s65532_ = "D" Then
  232.                                                         GoTo 3505
  233.                                                         GoTo 1550
  234.                                                       End If
  235.  1399                                                 If s65532_ = "L" Then
  236.                                                         GoTo 4456
  237.                                                         GoTo 1550
  238.                                                       End If
  239.  1428                                                 If s65532_ = "P" Then
  240.                                                         GoTo 4238
  241.                                                         GoTo 1550
  242.                                                       End If
  243.  1457                                                 If s65532_ = "M" Then
  244.                                                         GoTo 5392
  245.                                                         GoTo 1550
  246.                                                       End If
  247.  1486                                                 If s65532_ = "B" Then
  248.                                                         GoTo 6460
  249.                                                         GoTo 1550
  250.                                                       End If
  251.  1515                                                 If s65532_ = "Q" Then
  252.                                                         GoTo 6964
  253.                                                         GoTo 1550
  254.                                                       End If
  255.  1544                                               Loop
  256.  1550                                               Cls 
  257.                                                     Print "@0A@Enter the mailing list address of your new list, minus the domain name."
  258.                                                     Print "@0A@Example: WILDCAT-L, NEW-LIST, etc  @03@[@0F@ENTER@03@]@0A@ to abort)"
  259.                                                     t26_4605.s0 = InputMask("", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
  260.                                                     If (t26_4605.s0 = "") = 0 Then GoTo 1625
  261.                                                   Loop
  262.  1625                                             Print
  263.                                                   Print "@0A@Enter the name of the datafile you will use.  A filename such as"
  264.                                                   Print "@0A@ALIENS-L would use the ALIENS-L.DAT, ALIENS-L.ADD, ALIENS-L.DRP, etc,"
  265.                                                   Print "@0A@for the mailing list operations."
  266.                                                   Print "@0B@Filename@07@: "; DefColor;
  267.                                                   t26_4605.s70 = InputMask("", "XXXXXXXX", "", 1213417543)
  268.                                                   If (t26_4605.s70 = "") = 0 Then GoTo 1730
  269.                                                 Loop
  270.  1730                                           Print
  271.                                                 Print "@0B@Choose the type of list you wish to run@07@:"
  272.                                                 Print
  273.                                                 Print "@09@[@0F@1@09@] @07@-@0E@ Automatic subscription requests, non-subscribers can post"
  274.                                                 Print "@09@[@0F@2@09@] @07@-@0E@ Automatic subscription requests, only subscribers can post"
  275.                                                 Print "@09@[@0F@3@09@] @07@-@0E@ Must e-mail host to subscribe, non-subscibers can post"
  276.                                                 Print "@09@[@0F@4@09@] @07@-@0E@ Must e-mail host to subscribe, only subscribers can post"
  277.                                                 Print "@09@[@0F@5@09@] @07@-@0E@ Automatic subscription requests, must be authorized to post"
  278.                                                 Print "@09@[@0F@6@09@] @07@-@0E@ Must e-mail host to subscribe, must be authorized to post"
  279.                                                 Print
  280.                                                 Print "@03@(@0C@NOTE@03@) @0E@All unsubscription requests will still be handled automatically."
  281.                                                 Print
  282.                                                 Print "@0A@Mailing List Type@07@: "; DefColor;
  283.                                                 t26_4605.i78 = InputNumber("", 1, 6)
  284.                                                 t26_4605.s0 = UCase(t26_4605.s0)
  285.                                                 t26_4605.s70 = UCase(t26_4605.s70)
  286.                                                 Cls 
  287.                                                 Print "@0A@List Name @07@:@0F@ "; t26_4605.s0
  288.                                                 Print "@0A@List Files@07@:@0F@ "; t26_4605.s70
  289.                                                 Print "@0A@List Type @07@:@0F@ ";
  290.                                                 i65530_ = t26_4605.i78
  291.                                                 If i65530_ = 1 Then
  292.                                                   Print "Automatic subscription requests, non-subscribers can post"
  293.                                                 Else
  294.  1977                                             If i65530_ = 2 Then
  295.                                                     Print "Automatic subscription requests, only subscribers can post"
  296.                                                   Else
  297.  2007                                               If i65530_ = 3 Then
  298.                                                       Print "Must e-mail host to subscribe, non-subscibers can post"
  299.                                                     Else
  300.  2037                                                 If i65530_ = 4 Then
  301.                                                         Print "Must e-mail host to subscribe, only subscribers can post"
  302.                                                       Else
  303.  2067                                                   If i65530_ = 5 Then
  304.                                                           Print "Automatic subscription requests, must be authorized to post"
  305.                                                         Else
  306.  2097                                                     If i65530_ = 6 Then
  307.                                                             Print "Must e-mail host to subscribe, must be authorized to post"
  308.                                                             GoTo 2127
  309.                                                           End If
  310.                                                         End If
  311.                                                       End If
  312.                                                     End If
  313.                                                   End If
  314.                                                 End If
  315.  2127                                           Print
  316.                                                 Print "@0A@Is this correct? "; DefColor;
  317.                                                 If InputYesNo("", -1) Then
  318.                                                   Reset 
  319.                                                   Open "listserv.dat" For Random As 1 Len = 80 '! This value should probably be replaced with a "SizeOf" expression
  320.                                                   Put 1, LOF(1) + 1, t26_4605 '! 80 bytes
  321.                                                   Close 1
  322.                                                   Print
  323.                                                   Print "@0A@Saving @0F@"; t26_4605.s0; "@0A@ ..."
  324.                                                   WaitEnter 
  325.                                                 End If
  326.  2236                                         Loop
  327.  2242                                         Cls 
  328.                                               Print "@0A@Enter the name of the mailing list you wish to remove@07@:"
  329.                                               s5425 = ""
  330.                                               s5425 = InputMask("", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
  331.                                               If (s5425 = "") = 0 Then GoTo 2313
  332.                                             Loop
  333.  2313                                       s5425 = UCase(s5425)
  334.                                             Reset 
  335.                                             Open "listserv.dat" For Random As 1 Len = 80 '! This value should probably be replaced with a "SizeOf" expression
  336.                                             i5431 = 1
  337.                                             Do
  338.  2354                                         Get 1, i5431, t26_4605 '! 80 bytes
  339.                                               i5429 = 0
  340.                                               i5429 = InStr(t26_4605.s0, s5425)
  341.                                               If i5429 > 0 Then
  342.                                                 Print
  343.                                                 Print "@0C@Remove mailing list @0F@"; t26_4605.s0; "@0C@ ? "; DefColor;
  344.                                                 If InputYesNo("", 0) Then
  345.                                                   Print "@0C@Are you SURE!? ";
  346.                                                   If InputYesNo("", 0) Then
  347.                                                     t26_4605.s0 = " "
  348.                                                     t26_4605.s70 = " "
  349.                                                     Put 1, i5431, t26_4605 '! 80 bytes
  350.                                                     Close 1
  351.                                                     Print
  352.                                                     Print "@0C@Mailing list removed..."
  353.                                                     Print
  354.                                                     WaitEnter 
  355.                                                     GoTo 1056
  356.                                                   End If
  357.                                                 End If
  358.                                               End If
  359.  2545                                         Inc i5431
  360.                                             Loop Until i5431 > LOF(1)
  361.                                           Loop
  362.  2575                                     Cls 
  363.                                           Reset 
  364.                                           Open "listserv.dat" For Random As 1 Len = 80 '! This value should probably be replaced with a "SizeOf" expression
  365.                                           i5431 = 1
  366.                                           Do
  367.  2608                                       Get 1, i5431, t26_4605 '! 80 bytes
  368.                                             If t26_4605.s0 <> " " Then
  369.                                               Delay 0.001
  370.                                               Print "@0F@"; t26_4605.s0; " @0A@using data files of @0E@"; t26_4605.s70
  371.                                               Print "@0B@";
  372.                                               i65528_ = t26_4605.i78
  373.                                               If i65528_ = 1 Then
  374.                                                 Print "Automatic subscription requests, non-subscribers can post"
  375.                                               Else
  376.  2739                                           If i65528_ = 2 Then
  377.                                                   Print "Automatic subscription requests, only subscribers can post"
  378.                                                 Else
  379.  2769                                             If i65528_ = 3 Then
  380.                                                     Print "Must e-mail host to subscribe, non-subscibers can post"
  381.                                                   Else
  382.  2799                                               If i65528_ = 4 Then
  383.                                                       Print "Must e-mail host to subscribe, only subscribers can post"
  384.                                                     Else
  385.  2829                                                 If i65528_ = 5 Then
  386.                                                         Print "Automatic subscription requests, must be authorized to post"
  387.                                                       Else
  388.  2859                                                   If i65528_ = 6 Then
  389.                                                           Print "Must e-mail host to subscribe, must be authorized to post"
  390.                                                           GoTo 2889
  391.                                                         End If
  392.                                                       End If
  393.                                                     End If
  394.                                                   End If
  395.                                                 End If
  396.                                               End If
  397.  2889                                         If DisplayStopped Then
  398.                                                 GoTo 1056
  399.                                               End If
  400.                                             End If
  401.  2904                                       Inc i5431
  402.                                           Loop Until i5431 > LOF(1)
  403.                                           Print
  404.                                           WaitEnter 
  405.                                         Loop
  406.  2939                                   Cls 
  407.                                         Print "@0A@Which mailing list to you want to add to?"
  408.                                         s5425 = ""
  409.                                         s5425 = InputMask("", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
  410.                                         If (s5425 = "") = 0 Then GoTo 3010
  411.                                       Loop
  412.  3010                                 s5425 = UCase(s5425)
  413.                                       Reset 
  414.                                       Open "listserv.dat" For Random As 1 Len = 80 '! This value should probably be replaced with a "SizeOf" expression
  415.                                       i5431 = 1
  416.                                       Do
  417.  3051                                   Get 1, i5431, t26_4605 '! 80 bytes
  418.  3066                                   Do While t26_4605.s0 = " "
  419.                                           Inc i5431
  420.                                           If i5431 > LOF(1) Then
  421.                                             GoTo 1056
  422.                                           End If
  423.  3115                                     Get 1, i5431, t26_4605 '! 80 bytes
  424.                                         Loop
  425.  3136                                   i5429 = 0
  426.                                         i5429 = InStr(t26_4605.s0, s5425)
  427.                                         If i5429 > 0 Then
  428.                                           Print
  429.                                           Print "@0A@Add to @0F@"; t26_4605.s0; "@0A@ ? "; DefColor;
  430.                                           If InputYesNo("", -1) Then
  431.                                             Cls 
  432.                                             Print "@0A@Enter name/e-mail address to add to the mailing list:"
  433.                                             s4535 = ""
  434.                                             s4535 = InputMask("", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
  435.                                             s4535 = UCase(s4535)
  436.                                             If s4535 = "" Then
  437.                                               Cls 
  438.                                               GoTo 1056
  439.                                             End If
  440.  3317                                       Cls 
  441.                                             Print "@0F@"; s4535
  442.                                             Print
  443.                                             Print "@0A@Is this correct? "; DefColor;
  444.                                             If InputYesNo("", -1) Then
  445.                                               Reset 
  446.                                               Open t26_4605.s70 + ".dat" For Random As 2 Len = 70 '! This value should probably be replaced with a "SizeOf" expression
  447.                                               Put 2, LOF(2) + 1, s4535 '! 70 bytes
  448.                                               Close 2
  449.                                               Print
  450.                                               Print "@0F@"; s4535; " @0A@has been added."
  451.                                               Print
  452.                                               WaitEnter 
  453.                                               Cls 
  454.                                               GoTo 1056
  455.                                             End If
  456.  3469                                       GoTo 1056
  457.                                           End If
  458.                                         End If
  459.  3475                                   Inc i5431
  460.                                       Loop Until i5431 > LOF(1)
  461.                                     Loop
  462.  3505                               Cls 
  463.                                     Print "@0A@Drop subscriber from which mailing list?"
  464.                                     s5425 = ""
  465.                                     s5425 = InputMask("", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
  466.                                     If (s5425 = "") = 0 Then GoTo 3576
  467.                                   Loop
  468.  3576                             s5425 = UCase(s5425)
  469.                                   Reset 
  470.                                   Open "listserv.dat" For Random As 1 Len = 80 '! This value should probably be replaced with a "SizeOf" expression
  471.                                   i5431 = 1
  472.                                   Do
  473.  3617                               Get 1, i5431, t26_4605 '! 80 bytes
  474.  3632                               Do While t26_4605.s0 = " "
  475.                                       Inc i5431
  476.                                       If i5431 > LOF(1) Then
  477.                                         GoTo 1056
  478.                                       End If
  479.  3681                                 Get 1, i5431, t26_4605 '! 80 bytes
  480.                                     Loop
  481.  3702                               i5429 = 0
  482.                                     i5429 = InStr(t26_4605.s0, s5425)
  483.                                     If i5429 > 0 Then
  484.                                       Print
  485.                                       Print "@0A@Drop from @0F@"; t26_4605.s0; "@0A@ ? "; DefColor;
  486.                                       If InputYesNo("", 0) Then
  487.                                         GoTo 3851
  488.                                       End If
  489.                                     End If
  490.  3792                               Inc i5431
  491.                                   Loop Until i5431 > LOF(1)
  492.                                   Print
  493.                                   Print "@0C@No lists matching @0F@"; s5425; "@0C@."
  494.                                   Print
  495.                                   WaitEnter 
  496.                                 Loop
  497.  3851                           Close 1
  498.                                 Print
  499.                                 Print "@0A@Who do you want to drop from @0F@"; t26_4605.s0; "@0A@ ? "; DefColor
  500.                                 s5425 = ""
  501.                                 s5425 = InputMask("", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
  502.                                 If (s5425 = "") = 0 Then GoTo 3946
  503.                               Loop
  504.  3946                         s5425 = UCase(s5425)
  505.                               Reset 
  506.                               Open t26_4605.s70 + ".dat" For Random As 1 Len = 70 '! This value should probably be replaced with a "SizeOf" expression
  507.                               i5431 = 1
  508.                               Do
  509.  3999                           Get 1, i5431, s4535 '! 70 bytes
  510.                                 i5429 = 0
  511.                                 i5429 = InStr(s4535, s5425)
  512.                                 If i5429 > 0 Then
  513.                                   Print
  514.                                   Print "@0C@Remove @0F@"; s4535; " @0C@? "; DefColor;
  515.                                   If InputYesNo("", 0) Then
  516.                                     s5425 = s4535
  517.                                     s4535 = " "
  518.                                     Put 1, i5431, s4535 '! 70 bytes
  519.                                     Print
  520.                                     Print
  521.                                     Print "@0F@"; s5425; "@0C@ has been removed from @0F@"; t26_4605.s0
  522.                                     Print
  523.                                     WaitEnter 
  524.                                     GoTo 1056
  525.                                   End If
  526.                                 End If
  527.  4179                           Inc i5431
  528.                               Loop Until i5431 > LOF(1)
  529.                               Print
  530.                               Print "@0C@No addresses matching @0F@"; s5425; "@0C@."
  531.                               Print
  532.                               WaitEnter 
  533.                             Loop
  534.  4238                       Cls 
  535.                             Print "@0A@This will let you change the high message pointer in LISTSERV.PTR.  Be"
  536.                             Print "careful when running this, as changing the high message pointer may cause"
  537.                             Print "Listserv to send out previously sent messages!"
  538.                             Print
  539.                             s5425 = ""
  540.                             Print "@0A@Enter new high message, @03@[@0F@ENTER@03@]@0A@ to abort@07@: "; DefColor;
  541.                             s5425 = InputMask("", "XXXXXXXXX", "", 1213417543)
  542.                             If (s5425 = "") = 0 Then GoTo 4343
  543.                           Loop
  544.  4343                     Print
  545.                           Print "@0C@Are you sure you want to reset the high message pointer to@0F@ "; s5425; "@0C@ ? "; DefColor;
  546.                           If InputYesNo("", 0) Then
  547.                             Open "listserv.ptr" For Output As 5
  548.                             Print #5, s5425
  549.                             Close 5
  550.                             Print
  551.                             Print "@0B@High message pointer reset to @0F@"; s5425; "@0B@."
  552.                             Print
  553.                             WaitEnter 
  554.                           End If
  555.  4450                   Loop
  556.  4456                   Cls 
  557.                         Print "@0A@List/Search which mailing list?"
  558.                         s5425 = ""
  559.                         s5425 = InputMask("", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
  560.                         If (s5425 = "") = 0 Then GoTo 4527
  561.                       Loop
  562.  4527                 s5425 = UCase(s5425)
  563.                       Reset 
  564.                       Open "listserv.dat" For Random As 1 Len = 80 '! This value should probably be replaced with a "SizeOf" expression
  565.                       i5431 = 1
  566.                       Do
  567.  4568                   Get 1, i5431, t26_4605 '! 80 bytes
  568.                         i5429 = 0
  569.                         i5429 = InStr(t26_4605.s0, s5425)
  570.                         If i5429 > 0 Then
  571.                           Print
  572.                           Print "@0A@List subscribers for @0F@"; t26_4605.s0; "@0A@ ? "; DefColor;
  573.                           If InputYesNo("", -1) Then
  574.                             GoTo 4705
  575.                           End If
  576.                         End If
  577.  4675                   Inc i5431
  578.                       Loop Until i5431 > LOF(1)
  579.                     Loop
  580.  4705               s5421 = ""
  581.                     Do
  582.  4714                 Print
  583.                       Print "@09@[@0F@L@09@]@0A@ist all Subscribers or @09@[@0F@S@09@]@0A@earch Subscribers@07@: "; DefColor;
  584.                       s5421 = InputMask("", "X", "L", 1213417543)
  585.                       s5421 = UCase(s5421)
  586.                       If s5421 = "S" Then
  587.                         GoTo 5012
  588.                       End If
  589.  4791               Loop Until s5421 = "L"
  590.                     Cls 
  591.                     Close 1
  592.                     Reset 
  593.                     Open t26_4605.s70 + ".dat" For Random As 1 Len = 70 '! This value should probably be replaced with a "SizeOf" expression
  594.                     i5431 = 1
  595.                     i5826 = 0
  596.                     Do
  597.  4864                 Get 1, i5431, s4535 '! 70 bytes
  598.                       If s4535 <> " " Then
  599.                         Inc i5826
  600.                         Delay 0.001
  601.                         Print "@0D@"; t26_4605.s0; "   @0F@"; s4535
  602.                         If DisplayStopped Then
  603.                           GoTo 1056
  604.                         End If
  605.                       End If
  606.  4959                 Inc i5431
  607.                     Loop Until i5431 > LOF(1)
  608.                     Print
  609.                     Print "@0A@Total Subscribers@07@: @0B@"; i5826
  610.                     Print
  611.                     WaitEnter 
  612.                   Loop
  613.  5012             Print
  614.                   Print "@0A@Full or partial name to search by?"
  615.                   s5425 = ""
  616.                   s5425 = InputMask("", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
  617.                   If (s5425 = "") = 0 Then GoTo 5082
  618.                 Loop
  619.  5082           s5425 = UCase(s5425)
  620.                 Reset 
  621.                 Open t26_4605.s70 + ".dat" For Random As 1 Len = 70 '! This value should probably be replaced with a "SizeOf" expression
  622.                 i5431 = 1
  623.                 Print
  624.                 i5826 = 0
  625.                 Cls 
  626.                 Do
  627.  5146             Get 1, i5431, s4535 '! 70 bytes
  628.  5161             Do While t26_4605.s0 = " "
  629.                     Inc i5431
  630.                     If i5431 > LOF(1) Then
  631.                       GoTo 1056
  632.                     End If
  633.  5210               Get 1, i5431, s4535 '! 70 bytes
  634.                   Loop
  635.  5231             i5429 = 0
  636.                   i5429 = InStr(s4535, s5425)
  637.                   If i5429 > 0 Then
  638.                     Inc i5826
  639.                     Print "@0D@"; t26_4605.s0; "  @0F@"; s4535
  640.                     Delay 0.001
  641.                   End If
  642.  5315             Inc i5431
  643.                 Loop Until i5431 > LOF(1)
  644.                 Print
  645.                 Print "@0A@Total Matches@07@:@0B@ "; i5826
  646.                 Print
  647.                 Print "@0C@No more matches on @0F@"; s5425; "@0C@."
  648.                 Print
  649.                 WaitEnter 
  650.               Loop
  651.  5392         Cls 
  652.               Reset 
  653.               Open "listserv.cfg" For Input As 1
  654.               Input #1, i5433
  655.               Close 1
  656.               i5435 = t27_4685.w661
  657.               Join i5433
  658.               Open "listserv.ptr" For Input As 1
  659.               Input #1, i5433
  660.               Close 1
  661.               Print "Checking for messages..."
  662.               Delay 0.001
  663.               mh5437.Number = i5433
  664.               Open "listserv.dat" For Random As 3 Len = 80 '! This value should probably be replaced with a "SizeOf" expression
  665.  5538         If (Not GetNextMessage(mh5437)) = 0 Then GoTo 5582
  666.               Print
  667.               Print "@0F@No more messages found."
  668.               Print
  669.               WaitEnter 
  670.               Join i5435
  671.             Loop
  672.  5582       i5431 = 1
  673.             Do
  674.               Do
  675.  5589           Get 3, i5431, t26_4605 '! 80 bytes
  676.                 If i5431 > LOF(3) Then
  677.                   GoTo 5538
  678.                 End If
  679.  5628           If (t26_4605.s0 = " ") = 0 Then GoTo 5659
  680.                 Inc i5431
  681.               Loop
  682.               Do
  683.                 Do
  684.                   Do
  685.                     Do
  686.  5659                 If DisplayStopped Then
  687.                         GoTo 1056
  688.                       End If
  689.  5674                 If (UCase(mh5437.To) = UCase(t26_4605.s0) Or UCase(mh5437.To) = "LISTSERV") = 0 Then GoTo 6440
  690.                       If (mh5437.Flags And 512) <> 0 Then
  691.                         GoTo 5538
  692.                       End If
  693.  5756                 Cls 
  694.                       GetMessageText(mh5437.Number, "listmdrt.tmp")
  695.                       s5777 = Pad(mh5437.To, 15)
  696.                       s5757 = Pad(mh5437.From, 20)
  697.                       s5792 = Pad(mh5437.Subject, 15)
  698.                       s5807 = Pad(Str(mh5437.Number), 7)
  699.                       Print "  @0A@Msg #@07@:@0F@ "; mh5437.Number
  700.                       Print "   @0A@From@07@:@0F@ "; mh5437.From
  701.                       Print "     @0A@To@07@:@0F@ "; mh5437.To
  702.                       Print "@0A@Subject@07@:@0F@ "; mh5437.Subject
  703.                       Print "@0D@[-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-|-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-]@0E@"
  704.                       DisplayTextFile("listmdrt.tmp")
  705.                       Print
  706.                       If DisplayStopped Then
  707.                         Print "";
  708.                       End If
  709.  5984                 Print "@09@[@0F@Y@09@]@0A@ Next Message, @09@[@0F@D@09@]@0A@elete Message, @09@[@0F@E@09@]@0A@dit Message or Su@09@[@0F@B@09@]@0A@ject, @09@[@0F@Q@09@]@0A@uit@07@: "; DefColor;
  710.                       s5421 = InputMask("", "X", "Y", 1213417543)
  711.                       s65524_ = UCase(s5421)
  712.                       If s65524_ = "Y" Then
  713.                         Print "@0D@Checking for messages..."
  714.                         Delay 0.001
  715.                         GoTo 5538
  716.                         GoTo 6440
  717.                       End If
  718.  6082                 If (s65524_ = "D") = 0 Then GoTo 6191
  719.                       Print
  720.                       Print "@0A@Delete this message - @0C@Are you sure? "; DefColor;
  721.                       If InputYesNo("", 0) Then
  722.                         FlagSet mh5437.Flags, 512
  723.                         UpdateMessage(mh5437, "")
  724.                         Print "@0C@Message Deleted! @0D@Getting next message..."
  725.                         Delay 1
  726.                         GoTo 5538
  727.                       End If
  728.  6179               Loop
  729.                     GoTo 6440
  730.  6191               If (s65524_ = "E") = 0 Then GoTo 6252
  731.                     If EditMessage(mh5437, "listmdrt.tmp", 1024) Then
  732.                       UpdateMessage(mh5437, "listmdrt.tmp")
  733.                     End If
  734.  6240             Loop
  735.                   GoTo 6440
  736.  6252             If (s65524_ = "B") = 0 Then GoTo 6397
  737.                   s5792 = mh5437.Subject
  738.                   Print
  739.                   Print "@0A@New Subject@07@ "; DefColor;
  740.                   mh5437.Subject = InputMask("", "XXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
  741.                   If mh5437.Subject = "" Then
  742.                     mh5437.Subject = s5792
  743.                   End If
  744.  6373             UpdateMessage(mh5437, "listmdrt.tmp")
  745.                 Loop
  746.                 GoTo 6440
  747.  6397           If s65524_ = "Q" Then
  748.                   Join i5435
  749.                   GoTo 1056
  750.                   GoTo 6440
  751.                 End If
  752.  6434         Loop
  753.  6440         Inc i5431
  754.               Delay 0.001
  755.             Loop
  756.  6460       i5431 = 1
  757.             Cls 
  758.             Print "@0A@Which mailing list do you wish to rebuild?"; DefColor
  759.             s5425 = InputMask("", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
  760.             If (s5425 = "") = 0 Then GoTo 6534
  761.           Loop
  762.  6534     Open "listserv.dat" For Random As 1 Len = 80 '! This value should probably be replaced with a "SizeOf" expression
  763.           Do
  764.  6554       Get 1, i5431, t26_4605 '! 80 bytes
  765.             If t26_4605.s0 <> " " Then
  766.               If InStr(UCase(t26_4605.s0), UCase(s5425)) > 0 Then
  767.                 Print
  768.                 Print "@0A@Rebuild @0F@"; t26_4605.s0; "@0A@? "; DefColor;
  769.                 If InputYesNo("", -1) Then
  770.                   GoTo 6719
  771.                 End If
  772.               End If
  773.             End If
  774.  6670       Inc i5431
  775.           Loop Until i5431 > LOF(1)
  776.           Print
  777.           Print "@0C@No more matches."
  778.           Delay 2
  779.         Loop
  780.  6719   Reset 
  781.         i5431 = 1
  782.         i5824 = 1
  783.         Open t26_4605.s70 + ".dat" For Random As 1 Len = 70 '! This value should probably be replaced with a "SizeOf" expression
  784.         Open "lstutl.tmp" For Random As 2 Len = 70 '! This value should probably be replaced with a "SizeOf" expression
  785.         Print "@0C@Processing mailing list - Please wait..."
  786.         Delay 0.001
  787.         Do
  788.  6805     Get 1, i5431, s4535 '! 70 bytes
  789.           If s4535 <> " " Then
  790.             s4535 = Trim(s4535)
  791.             Put 2, i5824, s4535 '! 70 bytes
  792.             Inc i5824
  793.           End If
  794.  6875     Inc i5431
  795.         Loop Until i5431 > LOF(1)
  796.         Reset 
  797.         CopyFile("lstutl.tmp", t26_4605.s70 + ".dat")
  798.         Kill "listmdrt.tmp"
  799.         Kill "lstutl.tmp"
  800.         Print "@0F@All done!"
  801.         Print
  802.         WaitEnter 
  803.       Loop
  804.  6964 Reset 
  805.       Print
  806.       Print
  807.